B u t t o n   1   L a b e l   C a l c u l a t e P r i m e s 
 
 B u t t o n   C a l c u l a t e P r i m e s   C o l o r   G r e e n 
 
 S t o p 
 
 
 
 L a b e l   C a l c u l a t e P r i m e s 
 
 	 V a r i a b l e   N u m e r i c   n 1   =   2 
 
 	 
 
 	 F o r   v 1   =   2   T o   I n f i n i t y 
 
 	 	 V a r i a b l e   N u m e r i c   f l a g   =   0 
 
 	 	 F o r   v 2   =   2   T o   n 1   -   1 
 
 	 	 	 I f   M o d ( n 1 ,   v 2 )   =   0 
 
 	 	 	 	 f l a g   =   1 
 
 	 	 	 	 E x i t 
 
 	 	 	 E n d I f 
 
 	 	 N e x t 
 
 	 	 I f   f l a g   =   0 
 
 	 	 	 P r i n t   n 1   +   C R L F 
 
 	 	 E n d I f 
 
 	 	 n 1   =   n 1   +   1 
 
 	 	 I f   n 1   >   1 E 9 9 
 
 	 	 	 R e t u r n 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 
 
 